﻿
Imports std

Public NotInheritable Class bytes_set_string_wrapper
    Inherits transform_property_wrapper(Of bytes, [set](Of String))

    Public Sub New(ByVal p As iproperty(Of bytes),
                   ByVal separator As String,
                   ByVal ignore_empty_entities As Boolean)
        MyBase.New(p,
                   Function(i As bytes, ByRef o As [set](Of String)) As Boolean
                       Return bytes_to_set_string(i, o, separator, ignore_empty_entities)
                   End Function,
                   Function(i As [set](Of String), ByRef o As bytes) As Boolean
                       Return set_string_to_bytes(i, o, separator, ignore_empty_entities)
                   End Function)
    End Sub
End Class
